fix emit_limple_call_ref for 0 args case

diff --git a/src/comp.c b/src/comp.c
index 9f1317ef70a8e9895b6f9ee59acab65900be0198..d05d17bd010105a1bfcdbfe2062b0dbeb609ad4b 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -1139,7 +1139,9 @@ emit_limple_call_ref (Lisp_Object insn, bool direct)
 
   Lisp_Object callee = FIRST (insn);
   EMACS_INT nargs = XFIXNUM (Flength (CDR (insn)));
-  EMACS_INT base_ptr = XFIXNUM (CALL1I (comp-mvar-slot, SECOND (insn)));
+  EMACS_INT base_ptr = 0;
+  if (nargs)
+    base_ptr = XFIXNUM (CALL1I (comp-mvar-slot, SECOND (insn)));
   return emit_call_ref (callee, nargs, comp.frame[base_ptr], direct);
 }